﻿
Partial Class Default4
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim uBBL As OAMS.BBL.UsersBBL = New OAMS.BBL.UsersBBL()
        'TextBox2.Text = uBBL.GetVIPAgent(TextBox1.Text, "AUOOAMS")

        '  TextBox2.Text = TextBox1.Text.TrimEnd("0")
        Dim encryobj As Creasys.Utility.DesEncrypt = New Creasys.Utility.DesEncrypt()
        TextBox2.Text = encryobj.EncryptString(TextBox1.Text, "12345678")

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim encryobj As Creasys.Utility.DesEncrypt = New Creasys.Utility.DesEncrypt()
        TextBox1.Text = encryobj.DecryptString(TextBox2.Text, "12345678")

    End Sub
End Class
